Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A713A.CMD < prev next >

Wrap

Text File | 1987-01-01 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 713 │" locate 0,8 message s8 locate 0,17 message "│ Houston, TX │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- The Last Stop .......... 664-0222 V- RBBS Hug BBS ........... 583-1287 ║" message "║ B- Big Blue ............... 392-4249 W- Ram: Data Link ......... 630-0068 ║" message "║ C- TBL COMM ............... 661-9040 X- Clone Master I ......... 682-4194 ║" message "║ D- Yellow Rose ............ 326-2999 Y- Programmer's Workshop .. 772-2090 ║" message "║ E- Artichoke .............. 978-3554 Z- Heath User's Group ..... 869-9142 ║" message "║ F- PC-Board ............... 448-1406 0- Compaq Corporation ..... 890-0310 ║" message "║ G- The Last Resort BBS .... 481-0455 1- After Hours Night Club . 937-7258 ║" message "║ H- PC Eve ................. 955-7564 2- PC Interconnection ..... 955-8120 ║" message "║ I- Ramshackle ............. 999-6293 3- RTPM Tri-Houston RBBS .. 451-1421 ║" message "║ J- PC's Palace ............ 488-7179 4- HAL PC #1 .............. 523-5818 ║" message "║ K- Archimede's Lever ...... 301-2258 5- Scoreboard ............. 583-7848 ║" message "║ L- Seabrook BBS ........... 482-5526 6- SCS Hotline ............ 694-3150 ║" message "║ M- NASA Activities ........ 280-8711 7- Technical BBS .......... 726-0106 ║" message "║ N- Big Boy's BBS .......... 324-3416 8- RTPM Epson Net ......... 941-1059 ║" message "║ O- Campus Link-Up ......... 333-2309 9- ........................ ...-.... ║" message "║ P- CHUG BBS ............... 433-6395 @- ........................ ...-.... ║" message "║ Q- Legion Micro Comp. Exc . 479-5754 #- ........................ ...-.... ║" message "║ R- Modemvation, Jr ........ 484-0405 $- ........................ ...-.... ║" message "║ S- Net Works SSPC ......... 484-8090 %- ........................ ...-.... ║" message "║ T- Modula 2 ............... 523-7255 &- ........................ ...-.... ║" message "║ U- NEC/Delta Computer ..... 583-0001 *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "664-0222" assign s6 "The Last Stop " gosub dial else endif find s0 "B" if found assign s8 "392-4249" assign s6 "Big Blue " gosub dial else endif find s0 "C" if found assign s8 "661-9040" assign s6 "TBL COMM " gosub dial else endif find s0 "D" if found assign s8 "326-2999" assign s6 "Yellow Rose " gosub dial else endif find s0 "E" if found assign s8 "978-3554" assign s6 "Artichoke " gosub dial else endif find s0 "F" if found assign s8 "448-1406" assign s6 "PC-Board " gosub dial else endif find s0 "G" if found assign s8 "481-0455" assign s6 "The Last Resort BBS " gosub dial else endif find s0 "H" if found assign s8 "955-7564" assign s6 "PC Eve " gosub dial else endif find s0 "I" if found assign s8 "999-6293" assign s6 "Ramshackle " gosub dial else endif find s0 "J" if found assign s8 "488-7179" assign s6 "PC Palace " gosub dial else endif find s0 "K" if found assign s8 "301-2258" assign s6 "Archimede's Lever " gosub dial else endif find s0 "L" if found assign s8 "482-5526" assign s6 "Seabrook BBS " gosub dial else endif find s0 "M" if found assign s8 "280-8711" assign s6 "NASA Activities " gosub dial else endif find s0 "N" if found assign s8 "324-3416" assign s6 "Big Boy's BBS " gosub dial else endif find s0 "O" if found assign s8 "333-2309" assign s6 "Campus Link-Up " gosub dial else endif find s0 "P" if found assign s8 "433-6395" assign s6 "CHUG BBS " gosub dial else endif find s0 "Q" if found assign s8 "479-5754" assign s6 "Legion Microcomputer Exch " gosub dial else endif find s0 "R" if found assign s8 "484-0405" assign s6 "Modemvation, Jr. " gosub dial else endif find s0 "S" if found assign s8 "484-8090" assign s6 "Net Works SSPC " gosub dial else endif find s0 "T" if found assign s8 "523-7255" assign s6 "Modula 2 " gosub dial else endif find s0 "U" if found assign s8 "583-0001" assign s6 "NEC/Delta Computer " gosub dial else endif find s0 "V" if found assign s8 "583-1287" assign s6 "RBBS HUG BBS " gosub dial else endif find s0 "W" if found assign s8 "630-0068" assign s6 "Ram: Data Link " gosub dial else endif find s0 "X" if found assign s8 "682-4194" assign s6 "Clone Master I " gosub dial else endif find s0 "Y" if found assign s8 "772-2090" assign s6 "Programmer's Workshop " gosub dial else endif find s0 "Z" if found assign s8 "869-9142" assign s6 "Heath User's Group " gosub dial else endif find s0 "0" if found assign s8 "890-0310" assign s6 "Compaq Corporation " gosub dial else endif find s0 "1" if found assign s8 "937-7258" assign s6 "After Hours Night Club " gosub dial else endif find s0 "2" if found assign s8 "955-8120" assign s6 "PC Interconnection " gosub dial else endif find s0 "3" if found assign s8 "451-1421" assign s6 "RTPM Tri-Houston RBBS " gosub dial else endif find s0 "4" if found assign s8 "523-5818" assign s6 "HAL PC #1 " gosub dial else endif find s0 "5" if found assign s8 "583-7848" assign s6 "Scoreboard " gosub dial else endif find s0 "6" if found assign s8 "694-3150" assign s6 "SCS Hotline " gosub dial else endif find s0 "7" if found assign s8 "726-0106" assign s6 "Technical BBS " gosub dial else endif find s0 "8" if found assign s8 "941-1059" assign s6 "RTPM Epson Net " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "9" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "@" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "#" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "$" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "%" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " - " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit